home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #7
/
Commodore_Disk_User_Vol.3_7_1990_-.d64
/
designer offsets
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
211 lines
10 if a>0then40
20 poke51,255:poke52,63:poke55,255:poke56,63:clr
30 a=a+1:load"animate.mc",8,1
40 poke53281,0:poke53280,0:tr=0:mb=0
50 mu=49152:lft=49153:rght=49154
60 er=0:eb=0
70 print"[147]":input"multi-col mode(y-n)";mc$:ifmc$<>"y"andmc$<>"n"then70
80 ifmc$="y"thenpokemu,1:mc=1
90 ifmc$="n"thenpokemu,0:mc=0
100 gosub520
110 input"scale factor 0-2.5";sc
120 if sc<0orsc>2.5thenprint"[147]":goto60
130 ifsc=osandmc=mbthentr=1:goto290
140 os=sc:mb=mc
150 beg=16384
160 fort=0to6:forn=0to47
170 form=0to3
180 readx
190 x=x*sc
200 x=int(x+.3):ifmc=1thenx=(int(x/2))*2
210 ifer<abs(x)thener=abs(x)
220 ifx<0thenx=256+x
230 pokebeg+(512*m),x
240 nextm
250 beg=beg+1
260 nextn
270 beg=beg+2
280 nextt
290 input"scale factor of arms 0-2.5";sc
300 ifsc<0orsc>2.5then290
310 ifsc=obandtr=1then490
320 ifsc=obandtr=0then480
330 fort=0to3:forn=0to30
340 form=0to3
350 readx
360 x=x*sc
370 x=int(x+.3):ifmc=1thenx=(int(x/2))*2
380 ifeb<abs(x)theneb=abs(x)
390 ifx<0thenx=256+x
400 poke beg+(512*m),x
410 nextm
420 beg=beg+1
430 nextn
440 nextt
450 if tr=1andob<>scthenpoke lft+2,eb:pokerght+2,80-eb:goto490
460 ob=sc
470 poke lft+2,eb:pokerght+2,80-eb
480 pokelft,er:pokerght,80-er
490 sys49160
500 restore
510 goto60
520 print" 0-black"tab(10)" 1-white"tab(20)" 2-red"tab(30)" 3-cyan"
530 print" 4-purple"tab(10)" 5-green"tab(20)" 6-blue"tab(30)" 7-yellow"
540 print" 8-orange"tab(10)" 9-brown"tab(20)"10-l.red"tab(30)"11-gray 1"
550 print"12-gray 2"tab(10)"13-l.green"tab(20)"14-l.blue"tab(30)"15-gray 3"
560 ifmc=1then640
570 input"background col";c1
580 ifc1>15orc1<0then570
590 input"foreground col";c2
600 ifc2>15orc2<0then590
610 c=(c2*16)+c1
620 poke49157,c
630 return
640 input"background col";cb
650 input"colour 1 ";c1
660 ifc1>15orc1<0then650
670 input"colour 2 ";c2
680 ifc2>15orc2<0then670
690 input"colour 3 ";c3
700 ifc3>15orc3<0then690
710 c=(c2*16)+c1
720 poke49157,c
730 ifcb=5thenprint"[144]"
740 poke53281,cb
750 poke49159,cb
760 poke49158,c3
770 return
780 data0,0,0,0,0,0,0,0
790 data0,0,0,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
800 data1,0,-1,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
810 data2,-1,-2,0,2,-1,-2,0,2,-1,-2,0,2,-1,-2,0
820 data2,-1,-2,0,2,-1,-2,0,2,-1,-2,0,3,-1,-3,0
830 data3,-1,-3,0,3,-1,-3,0,3,-1,-3,0,3,-1,-3,0
840 data4,-1,-3,0,4,-1,-3,0,4,-2,-3,0,3,-2,-4,0
850 data3,-2,-4,0,3,-2,-4,0,3,-2,-4,0,3,-2,-4,0
860 data3,-2,-4,0,3,-2,-4,0,3,-2,-4,0,3,-2,-4,0
870 data2,-2,-4,0,2,-2,-4,0,2,-2,-4,0,2,-3,-4,0
880 data2,-3,-4,0,2,-3,-4,0,2,-3,-4,0,2,-3,-4,0
890 data2,-3,-5,0,2,-3,-5,0,1,-3,-5,0,1,-3,-5,0
900 data1,-3,-5,0,1,-3,-5,0
910 rem frame2
920 data0,0,0,0,0,0,0,0
930 data1,0,-1,0,1,0,-1,0,1,0,-1,0,1,0,-1,0
940 data2,0,-2,0,2,0,-2,0,2,0,-2,0,2,0,-2,0
950 data3,0,-3,0,3,-1,-3,0,3,-1,-3,0,3,-1,-3,0
960 data4,-1,-4,0,4,-1,-4,0,4,-1,-4,0,4,-1,-4,0
970 data5,-1,-5,0,5,-1,-5,0,5,-1,-5,0,5,-1,-5,0
980 data6,-1,-5,0,6,-1,-5,0,6,-2,-5,0,5,-2,-5,0
990 data5,-2,-5,0,5,-2,-5,0,5,-2,-5,0,5,-2,-5,0
1000 data5,-2,-6,0,5,-2,-6,0,5,-2,-6,0,4,-2,-6,0
1010 data4,-2,-6,0,4,-2,-6,0,4,-2,-6,0,4,-3,-6,0
1020 data4,-3,-6,0,4,-3,-6,0,4,-3,-6,0,3,-3,-6,0
1030 data3,-3,-7,0,4,-3,-7,0,4,-3,-7,0,3,-3,-7,0
1040 data3,-3,-7,0,3,-3,-7,0
1050 rem frame3
1060 data0,0,0,0,1,0,0,0
1070 data1,0,0,0,1,0,0,0,2,0,-1,0,2,0,-1,0
1080 data2,0,-2,0,3,0,-2,0,3,0,-2,0,3,0,-3,0
1090 data4,0,-3,0,4,0,-3,0,4,0,-3,0,5,0,-3,0
1100 data5,0,-3,0,5,0,-3,0,6,0,-4,0,6,0,-4,0
1110 data6,0,-4,0,7,0,-4,0,7,0,-4,0,8,0,-4,0
1120 data8,0,-4,0,9,0,-5,0,8,-1,-5,0,8,-1,-5,0
1130 data8,-1,-5,0,8,-1,-5,0,8,-1,-5,0,8,-1,-5,0
1140 data8,-1,-6,0,8,-1,-6,0,8,-1,-6,0,8,-1,-6,0
1150 data8,-1,-6,0,8,-1,-6,0,8,-1,-7,0,8,-1,-7,0
1160 data8,-1,-7,0,8,-1,-7,0,8,-1,-8,0,8,-1,-8,0
1170 data8,-1,-8,0,8,-1,-9,0,8,-1,-9,0,8,-1,-9,0
1180 data8,-1,-9,0,8,-1,-9,0
1190 rem frame4
1200 data0,0,0,0,1,0,-1,0
1210 data1,0,-1,0,1,0,-1,0,2,0,-1,0,2,0,-1,0
1220 data2,0,-1,0,3,0,-1,0,3,0,-2,0,3,0,-2,0
1230 data4,0,-2,0,4,0,-2,0,4,0,-2,0,5,0,-3,0
1240 data5,0,-3,0,5,0,-3,0,6,0,-3,0,6,0,-3,0
1250 data6,0,-3,0,7,0,-3,0,7,0,-4,0,8,0,-4,0
1260 data8,0,-4,0,9,0,-4,0,8,0,-4,0,8,0,-4,0
1270 data8,0,-5,0,8,0,-5,-1,8,0,-5,-1,8,0,-5,-1
1280 data8,0,-5,-1,8,0,-5,-1,8,0,-6,-1,8,0,-6,-1
1290 data9,0,-6,-1,9,0,-6,-1,9,0,-6,-1,9,0,-7,-1
1300 data9,0,-7,-1,9,0,-7,-1,10,0,-7,-1,10,0,-8,-1
1310 data10,0,-8,-1,10,0,-8,-1,10,0,-8,-1,10,0,-9,-1
1320 data10,0,-9,-1,10,0,-9,-1
1330 rem frame5
1340 data0,0,0,0,1,0,0,0
1350 data1,0,0,0,1,0,0,0,2,0,0,0,2,0,0,0
1360 data2,0,0,0,3,0,-1,0,3,0,-1,0,3,0,-1,0
1370 data4,0,-1,0,4,0,-1,0,4,0,-1,0,5,0,-1,0
1380 data5,0,-1,-1,5,0,-2,-1,6,0,-2,-1,6,0,-2,-1
1390 data6,0,-2,-1,7,0,-2,-1,7,0,-2,-1,8,0,-2,-1
1400 data8,0,-2,-1,9,0,-3,-1,8,0,-3,-2,8,0,-3,-2
1410 data8,0,-3,-2,8,0,-3,-2,8,0,-3,-2,8,0,-3,-2
1420 data8,0,-4,-2,8,0,-4,-2,7,0,-4,-2,7,0,-4,-2
1430 data7,0,-4,-2,7,0,-4,-2,7,0,-4,-2,7,0,-5,-2
1440 data7,0,-5,-2,7,0,-5,-2,6,0,-5,-2,6,0,-5,-3
1450 data6,0,-5,-3,6,0,-5,-3,6,0,-6,-3,6,0,-6,-3
1460 data6,0,-6,-3,6,0,-6,-3
1470 rem frame6
1480 data0,0,0,0,0,0,0,0
1490 data1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
1500 data2,0,0,0,2,0,0,0,2,0,0,0,2,0,0,0
1510 data3,0,0,0,3,0,-1,-1,3,0,-1,-1,3,0,-1,-1
1520 data4,0,-1,-1,4,0,-1,-1,4,0,-1,-1,4,0,-1,-1
1530 data5,0,-1,-1,5,0,-1,-1,5,0,-1,-1,6,0,-1,-1
1540 data6,0,-1,-1,6,0,-1,-1,6,0,-2,-2,5,0,-2,-2
1550 data5,0,-2,-2,5,0,-2,-2,5,0,-2,-2,5,0,-2,-2
1560 data5,0,-2,-2,5,0,-2,-2,5,0,-2,-2,4,0,-2,-2
1570 data4,0,-2,-2,4,0,-2,-2,4,0,-3,-3,4,0,-3,-3
1580 data4,0,-3,-3,4,0,-3,-3,4,0,-3,-3,3,0,-3,-3
1590 data3,0,-3,-3,3,0,-3,-3,3,0,-3,-3,3,0,-3,-3
1600 data3,0,-3,-3,3,0,-3,-3
1610 rem frame7
1620 data0,0,0,0,0,0,0,0
1630 data0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
1640 data1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
1650 data2,0,0,0,2,0,0,-1,2,0,0,-1,2,0,0,-1
1660 data2,0,0,-1,2,0,0,-1,2,0,0,-1,3,0,0,-1
1670 data3,0,0,-1,3,0,0,-1,3,0,0,-1,3,0,0,-1
1680 data3,0,0,-1,4,0,-1,-2,4,0,-1,-2,3,0,-1,-2
1690 data3,0,-1,-2,3,0,-1,-2,3,0,-1,-2,3,0,-1,-2
1700 data3,0,-1,-2,3,0,-1,-2,3,0,-1,-2,3,0,-1,-2
1710 data2,0,-1,-2,2,0,-1,-2,2,0,-1,-2,2,0,-1,-3
1720 data2,0,-1,-3,2,0,-1,-3,2,0,-1,-3,2,0,-1,-3
1730 data2,0,-1,-3,2,0,-1,-3,1,0,-1,-3,1,0,-1,-3
1740 data1,0,-1,-3,1,0,-1,-3
1750 rem arms
1760 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1770 data-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0
1780 data-1,0,-1,0,-2,0,-2,0,-2,0,-2,0,-2,0,-2,0
1790 data-2,0,-2,0,-2,0,-2,0,-3,0,-3,0,-3,0,-3,0
1800 data-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
1810 data-2,-1,-2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
1820 data-1,-1,-1,-1,-1,-1,-1,-1,0,-1,0,-1,0,-1,0,-1
1830 data0,-1,0,-1,0,-1,0,-1,0,-1,0,-1
1840 rem frame2+7
1850 data0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0
1860 data-1,0,0,0,-1,0,0,0,-2,0,0,0,-2,0,0,0
1870 data-2,0,0,0,-3,0,0,0,-3,0,0,0,-3,0,0,0
1880 data-4,-1,0,0,-4,-1,0,0,-5,-1,0,0,-4,-1,1,0
1890 data-4,-1,1,-1,-4,-1,1,-1,-4,-1,1,-1,-4,-1,1,-1
1900 data-3,-2,1,-1,-3,-2,1,-1,-3,-2,2,-1,-3,-2,2,-1
1910 data-3,-2,2,-1,-2,-2,2,-1,-2,-2,2,-1,-2,-2,2,-1
1920 data-2,-2,2,-1,-2,-2,2,-1,-1,-2,2,-1
1930 rem frame3+6
1940 data0,0,0,0,0,0,0,0,-1,0,0,0,-1,0,0,0
1950 data-2,0,0,0,-2,0,0,0,-3,0,1,0,-3,0,1,0
1960 data-4,0,1,0,-4,0,1,0,-5,-1,1,-1,-5,-1,2,-1
1970 data-5,-1,2,-1,-6,-1,2,-1,-6,-1,2,-1,-6,-1,2,-1
1980 data-5,-1,3,-1,-5,-1,3,-1,-5,-1,3,-1,-5,-1,3,-1
1990 data-4,-2,4,-2,-4,-2,4,-2,-4,-2,4,-2,-4,-2,4,-2
2000 data-3,-2,5,-2,-3,-2,5,-2,-3,-2,5,-2,-3,-2,5,-2
2010 data-3,-3,5,-2,-3,-3,5,-2,-3,-3,5,-2
2020 rem frame4+5
2030 data0,0,0,0,0,0,0,0,-1,0,0,0,-2,0,0,0
2040 data-2,0,0,0,-3,0,1,0,-4,0,1,0,-4,-1,1,-1
2050 data-5,-1,1,-1,-5,-1,1,-1,-6,-1,2,-1,-6,-1,2,-1
2060 data-6,-1,2,-1,-7,-1,2,-1,-6,-2,2,-1,-6,-2,2,-2
2070 data-6,-2,3,-2,-6,-2,3,-2,-6,-2,3,-2,-6,-2,3,-2
2080 data-5,-2,4,-2,-5,-2,4,-2,-5,-2,4,-2,-5,-2,4,-3
2090 data-5,-3,5,-3,-4,-3,5,-3,-4,-3,5,-3,-4,-3,5,-3
2100 data-4,-3,6,-3,-4,-3,6,-3,-4,-3,6,-3